home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / A-B / Alpha.5.05.cpt / AlphaBits.tcl < prev    next >
Text File  |  1992-09-06  |  7KB  |  328 lines
  1. # Alpha 5.0 Init File
  2.  
  3. # Comment this out if you are using an international keyboard!
  4. setVar noRemapOption 0
  5.  
  6. # Examples of using C-x and C-c combinations for you emacs freaks.
  7. bind 'x' <z>     prefixChar
  8. bind 'f' <zX>    findFile
  9. bind 'l' <X>    currentPosition
  10. bind '(' <sX>    startKeyboardMacro
  11. bind ')' <Xs>    endKeyboardMacro
  12. bind 'e' <X>    executeKeyboardMacro
  13.  
  14. bind 'c' <z>     prefixChar
  15. bind 'f' <Cz>    forwardWord
  16.  
  17. bind 'x' <e>    execute
  18. bind 'w' <zs>    rectMarkHilite
  19. bind '\r'        carriageReturn
  20. bind '\t'         tclFileCompletion "Csh"
  21. bind ''        startEscape
  22. bind "'    '" <z>    indentLine
  23. bind 's' <zoc>    spacesToTabs
  24. bind 't' <zoc>    tabsToSpaces
  25. bind 'a' <zo>    insertAscii
  26. bind 'a' <zos>    getAscii
  27. # bind 'l' <xo>    currentPosition
  28. bind 'f' <cz>     freeMem
  29. # bind 'd' <zx>    deleteSelection
  30. # bind 'l' <x>     currentPosition
  31. bind 'r' <e>     repeatSearchBackward
  32. bind 's' <e>     repeatSearchForward
  33. bind '\ ' <e>    oneSpace
  34. bind 'j' <e>    fillRegion
  35. bind 'p' <e>    fillParagraph
  36. bind 'b' <e>     backwardWord
  37. bind 'd' <e>     deleteWord
  38. bind 'f' <e>     forwardWord
  39. bind 'g' <e>     gotoLine
  40. bind 'h' <e>     backwardDeleteWord
  41. bind '<' <se>     beginningOfBuffer
  42. bind '>' <se>     endOfBuffer
  43. bind 't' <e>     findTag
  44. bind 'k' <e>     keyCode
  45. bind 'l' <e>    downcaseWord
  46. bind 'u' <e>    upcaseWord
  47. bind 'c' <e>    capitalizeWord
  48.  
  49. bind Left  backwardChar
  50. bind Left <z> beginningOfLine
  51. bind Left <s> backwardCharSelect
  52. bind Left <sz> beginningLineSelect
  53. bind Left <c> scrollLeftCol
  54.  
  55. bind Right  forwardChar
  56. bind Right <z> endOfLine
  57. bind Right <s> forwardCharSelect
  58. bind Right <sz> endLineSelect
  59. bind Right <c> scrollRightCol
  60.  
  61. bind Up  previousLine
  62. bind Up <s> prevLineSelect
  63. bind Up <z> beginningOfBuffer
  64. bind Up <sz> beginningBufferSelect
  65. bind Up <c> scrollUpLine
  66.  
  67. bind Down  nextLine
  68. bind Down <z> endOfBuffer
  69. bind Down <s> nextLineSelect
  70. bind Down <sz> endBufferSelect
  71. bind Down <c> scrollDownLine
  72.  
  73. # Keypad definitions
  74. bind KPad4  backwardWord                 
  75. bind KPad4   <c> backwardDeleteWord 
  76. bind KPad6   forwardWord                 
  77. bind KPad6   <c> deleteWord 
  78. bind Clear   insertToTop                 
  79. # Never bind Keypad /
  80. # Never bind Keypad *
  81. bind KPad0   pageBack                     
  82. bind Enter   pageForward
  83. bind KPad3   repeatSearchForward         
  84. bind KPad1   repeatSearchBackward     
  85. bind KPad.   endOfBuffer                 
  86. bind KPad5   exchangePointAndMark     
  87. bind KPad7   backwardDeleteWord         
  88. bind KPad9   deleteWord                 
  89. bind 's' <z>     isearch            
  90. bind 'r' <z>     rsearch            
  91. bind 'a' <z>     beginningOfLine    
  92. bind 'b' <z>     backwardChar        
  93. bind 'd' <z>     deleteChar        
  94. bind 'f' <z>     forwardChar        
  95. bind 'e' <z>     endOfLine        
  96. bind 'g' <z>     abortEm            
  97. bind 'k' <z>     killLine            
  98. bind 'l' <z>    centerRedraw
  99. bind 't' <z>     insertToTop        
  100. bind 'p' <z>     previousLine        
  101. bind 'n' <z>     nextLine            
  102. bind 'o' <z>     openLine            
  103. bind 'u' <z>     iterationCount    
  104. bind 'v' <z>     pageForward        
  105. bind 'z' <z>     pageBack            
  106. bind 'v' <e>     pageBack
  107. bind 'w' <z>     cut            
  108. bind 'w' <e>     copy
  109. bind "' '" <z>     setMark            
  110. bind 'y' <z>     yank                
  111.  
  112.  
  113. # Alpha variable and flag definitions.
  114. setVar optionIsMeta 1
  115. setVar bwWindows 0
  116. setVar electricSemi 1
  117. setVar elecLBrace 1
  118. setVar elecRBrace 1
  119. setVar fontSize 9
  120. setVar defaultFont "monaco"
  121. setVar defWidth 506
  122. setVar defHeight 435
  123. setVar fullScreen 1
  124. setVar fillColumn 75
  125. setVar paraColumn 180
  126. setVar posActivate 0
  127. setVar startWithNew 2
  128.  
  129. setVar backup 0
  130. setVar backupFolder 1
  131. setVar backupFolderName "$HOME:back"
  132.  
  133. setVar currFileSet "Edit"
  134.  
  135. set Think "External:C:THINK C 5.0 Folder"
  136. set includePath { {$Think:Mac #includes:Apple #includes:} {$Think:C Libraries:headers:} {:} }
  137. setVar funcExpr {^[^ \t\(#\r/@].*\(.*\)?$}
  138. set defFuncExpr {^[^ \t\(#\r/@].*\(.*\)$}
  139. setVar funcExpr $defFuncExpr
  140. setVar tagFile "$HOME:cTAGS"
  141.  
  142. # Hooks for file suffixs. Executed on opens and activates.
  143. # suffixHook ".tex" setTexMode
  144. # suffixHook ".c" setCMode
  145.  
  146. # Color support
  147. # colors -20481 2703 2703 -632 -588 -11060
  148. colors 0 0 0 -588 -818 -1507
  149.  
  150. bind F1     setMark                     
  151. bind F2     copy                         
  152. bind F3     cut                         
  153. bind F4     yank                         
  154. bind F5     nextWindow
  155. bind F6        whileTemplate
  156. bind F7        forTemplate
  157. bind F8     forwardTemplate
  158. bind F9     pushMark
  159. bind F10    popMark
  160. bind F11    shrinkHigh
  161. bind F12    shrinkLow
  162. bind F13    startKeyboardMacro         
  163. bind F14    endKeyboardMacro             
  164. bind F15    executeKeyboardMacro         
  165.  
  166. bind Del    deleteChar                 
  167. bind Help   alphaHelp                     
  168. bind Home   beginningOfBuffer             
  169. bind End    endOfBuffer                 
  170. bind Pgup   pageBack                     
  171. bind Pgdn   pageForward                  
  172.  
  173. # My menus
  174.  
  175.  
  176. menu    Utilities {
  177.         "longMenus"
  178.         "FLAGMENU"
  179.         "VARMENU"
  180.         {menu fileUtils {
  181.             "insertFile"
  182.             "(-"
  183.             "fileRemove"
  184.             "fileInfo/="}}
  185.         "FSETMENU"
  186.         {menu Clips {
  187.             "copyNamedClipboard"
  188.             "cutNamedClipboard"
  189.             "pasteNamedClipboard"}}
  190.         "(-"
  191.         {menu arrange {
  192.             "vertically^1"
  193.             "horizontally^2"
  194.             "tiled^3"
  195.             "overlay^4"}}
  196.         "zoom//"}
  197.  
  198. menu    "Utils" {
  199.         "shortMenus"
  200.         "FLAGMENU"
  201.         "VARMENU"
  202.         {menu fileUtils {
  203.             "insertFile"
  204.             "(-"
  205.             "fileRemove"
  206.             "fileInfo/="}}
  207.         "(-"
  208.         "FSETMENU"
  209.         "addFileset"
  210.         "(-"
  211.         "pushMark"
  212.         "popMark"
  213.         "(-"
  214.         "execute/'"
  215.         "(-"
  216.         "startKeyboardMacro"
  217.         "endKeyboardMacro"
  218.         "executeKeyboardMacro"}
  219.  
  220. proc switchToThinkC {} {
  221.     switchTo {THINK C 5.0}
  222. }
  223.  
  224. fileMenu Help "$HOME:Help:" 1 {
  225.         "Tcl"
  226.         "Tickle"
  227.         "Alpha Tcl Extensions"
  228.         "Shells"
  229.         "Regular Expressions"
  230.         "Debugging"
  231.         "LaTeX Keys"
  232. }
  233.  
  234. menu    Misc {
  235.         "listBindings"
  236.         {menu asciiEtc {
  237.             "keyCode"
  238.             "keyAscii"
  239.             "getAscii"
  240.             "insertAscii"}}
  241.         "(-"
  242.         "getPathName"
  243.         "setFontsTabs"
  244.         "(-"
  245.         "/,setCMode"
  246.         "setFortranMode"
  247.         "setShellMode"
  248.         "setTclMode"
  249.         "setTexMode"
  250.         "/.setTextMode"
  251.         "(-"
  252.         "copyNamedClipboard"
  253.         "cutNamedClipboard"
  254.         "pasteNamedClipboard"
  255.         "(-"
  256.         "/-switchToThinkC"}
  257.         
  258. set pasteItemNum 16
  259. hiliteMenuItem Misc $pasteItemNum off
  260. set modeItemNum 14
  261. hiliteMenuItem Misc $modeItemNum off
  262.  
  263.  
  264. menu    Convert {
  265.         "fillRegion"
  266.         "fillParagraph"
  267.         "wrapRegion"
  268.         "wrapParagraph"
  269.         "(-"
  270.         "zapInvisibles"
  271.         "tabsToSpaces"
  272.         "spacesToTabs"
  273.         "(-"
  274.         {menu    Strings {
  275.             "insertPrefix"
  276.             "insertSuffix"
  277.             "removePrefix"
  278.             "removeSuffix"}}
  279.         {menu     Colors {
  280.             "foreColor"
  281.             "backColor"
  282.             "dumpColors"}}
  283.         "(-"
  284.         "ParagraphToLine"
  285.         "LineToParagraph"}
  286.  
  287. menu Wins {
  288.         {menu arrange {
  289.             "vertically^1"
  290.             "horizontally^2"
  291.             "tiled^3"
  292.             "overlay^4"}}
  293.         "//zoom"
  294.         "nextWindow"
  295.         "closeAll"
  296.         "saveAll"
  297.         "(-"
  298.         "WINDOWMENU"}
  299.  
  300. insertMenu "Utils"
  301. insertMenu "Misc"
  302. hiliteMenuItem Misc $pasteItemNum off
  303. insertMenu "Convert"
  304. insertMenu "Help"
  305. insertMenu "Wins"
  306.  
  307. proc shortMenus {} {
  308.     removeMenu "Utils"
  309.     removeMenu "Misc"
  310.     removeMenu "Convert"
  311.     removeMenu "Wins"
  312.     insertMenu "Utilities"
  313. }
  314.  
  315. proc longMenus {} {
  316.     removeMenu "Utilities"
  317.     insertMenu "Utils"
  318.     insertMenu "Misc"
  319.     insertMenu "Convert"
  320.     insertMenu "Wins"
  321. }
  322.  
  323.  
  324.  
  325. # Necessary procs. 
  326. source "$HOME:procs.tcl"
  327.  
  328.